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Fargo 



FARGO, Fourteen-O-One Automatic Report Generat- 
ing Operation, is a report generator that requires no 
expert knowledge of programming techniques. It is 
easy to learn and apply. Developed for the ibm 1401 
Data Processing System, FARGO may be quickly 
adapted to many types of listed reports or group- 
printed reports now prepared with unit-record equip- 
ment on blank paper or on preprinted forms. 

In addition to providing the program for processing 
the input detail-data cards, FARGO provides for 
printing one title line, including page number, on each 
page of the report. It also provides for printing two 
lines of field headings used to designate the various 
columns of the report. The printing of this information, 
normally required when preparing reports on blank 
paper, is controlled by the carriage tape. One advan- 
tage of FARGO is that any number of different reports 
may be prepared in a continuous mode, provided the 
reports are prepared on blank paper and that the 
carriage-tape specifications are standardized for all 
the reports. 

Requirements of the report, such as title and field 
headings, detail and/or total printing, carriage spacing, 
skipping, ejecting, etc., are first laid out on an ibm 
1403 Printer Spacing Chart. The report specifications 
are then recorded on specially-designed FARGO con- 



trol card coding-sheets (Phases 1, 2, 3 and 4). Control 
cards for each of the four phases are then punched on 
standard 5081-type cards. These are inserted behind 
their respective FARGO condensed-program decks, 
and all precede the detail data cards to be processed. 
The file is then loaded into the 1402 file feed. The 
operation is started by pressing the load key. The 
1401 loads each phase of the FARGO program, and 
generates the program steps from the control cards 
that follow each phase. 

In approximately 20 seconds, report printing is 
started. It continues without interruption until the 
report is finished. This procedure is graphically illus- 
trated in Figure 1. If several reports are to be run 
consecutively, a separator card containing a lozenge 
(p , 12-4-8) punch in card column one is placed be- 
hind the last detail data card for each report. This 
branches the generated program into the last card 
routine, ejects to the first printing line of the next 
form, and immediately begins reading-in the next pro- 
gram deck. 

FARGO is designed primarily for ibm 1401 card sys- 
tems having a minimum of 4,000 positions of core 
storage, and parallels the 407 approach to report prep- 
aration. It is a load-and-go system with no intermediate 
operations such as symbolic assembly. 



General Description 

Following is a list of operations that can be performed 
under FARGO control. 

Print one full line (132 positions) of Report Heading 
on the first line of each page of the report (carriage- 
tape channel- 1, including page numbers. 

Skip to carriage-tape channel-2 and print a maxi- 
mum of two full lines of columnar- or field-headings 
on each page of the report. 

Skip to the body line of the report (carriage-tape 
channel-3). 

List or group-print the body of the report. 

Control on a maximum of four fields anywhere in 
the detailed data cards regardless of length. 

Group-indicate a maximum of four fields on the first 
line of each minor control group. 

Distinguish a maximum of 10 different types of de- 
tail cards and print results in the appropriate columns 
of the report. Each code used to identify a given type 
of card may be punched in the same column of the 
detail card, or a separate column may be used to 
identify each type up to a maximum of 10. If more than 
one card-column must be tested to identify a given 
type of card (multiple column type), a patching rou- 
tine is generally required. Special provisions have been 
made within the FARGO program for accomplishing 
this type of patching. (See Patching.) However, two 
columns may be tested without patching if, as is fre- 
quently the case, a type of card is identified by a digit 
(1-9) in one column and a zone (usually an X) in an- 
other column. Example: 3 in column 6, X in column 
80. (See Figure 25.) 

Add, subtract, multiply, and divide detail data or 
totals. 

Accumulate and print totals (with or without sum- 
mary punching) for each control level, plus final totals 
at the end of the report. Minor totals are rolled into 
intermediate totals, intermediate totals into major, etc. 



Space before or after printing, or skip to predeter- 
mined total-lines (carriage-tape channels 4 to 9). 

Crossfoot detail data or totals, print the results on 
desired total levels, and print progressive totals where- 
ever desired. 

Print totals horizontally or vertically for each total 
level on as many lines as desired. 

Print multiple lines from one card (MLP). 

Print reports on preprinted forms, including inverted 
forms with MLP printing. In such cases, specifications 
for report and field headings are not required. 

Card count by types of cards and print card count 
totals on desired total levels. 

Overflow or eject from form to form. 

Print any number of different types of reports 
consecutively, provided that reports are prepared on 
continuous blank paper and that the carriage-tape 
specifications are standardized for all the reports. 

Report Specifications 

In developing report specifications, the first step is to 
lay out the report on an ibm 1403 Printer Spacing 
Chart (step 1 in Figure 1). This establishes the posi- 
tions at which the various data will be printed and 
indicates the spacing or skipping between lines of 
printing. This step is always required for new reports 
but may not be necessary for existing reports, that is, 
reports that have been prepared previously with the 
407. In such cases, the same spacing chart used in 
laying out the report for the 407 can be used with the 
FARGO system. If minor modifications are made in 
the conversion of the report from the 407 to the 1401 
because of the greater printing capacity, a new layout 
using the 1403 printer spacing chart is necessary. Once 
the report layout is completed and the operations to 
be performed are clearly indicated, the next step (step 
2 in Figure 1) is to record the specifications on FARGO 
coding sheets. 
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XXX XX XXX XX xxxxxx 
XXX XX XXX XX xxxxxx 
XXX XX XXX XX xxxxxx 
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Figure 1. FARGO— Basic Steps 



Coding Sheets 

Coding sheets (Figure 2) are designed to facilitate the 
recording of specifications in the FARGO language, 
following a few simple rules. The statements used to 
supply the information are based on the logic of the 
407. Thus, any person with sufficient knowledge to 
develop ibm 407 specifications for a given report can 
learn and apply the FARGO language with very little 
training. 

The areas on the coding sheets labeled Report, Pro- 
grammed By, Page Nos., and Date are for the con- 
venience of the programmer, but are not punched in 
the FARGO control cards. If the programmer assigns 
a number to the program for identification purposes, 
the number is entered in the area labeled Program 
Identification, 73-76. This number is later punched in 
each FARGO control card. 

Each line of the coding sheets is identified by a pre- 
printed sequence number in columns 77-80. These se- 
quence numbers should be punched in the control 
cards. When the control cards for the four phases are 
properly inserted behind their respective FARGO 
condensed-program decks, the sequence numbers must 
be in ascending order as shown here. 



Phase 
1 
1 
2 
2 
3 
3 
4 
4 



Cards 
Condensed Program Deck 
Control Cards 
Condensed Program Deck 
Control Cards 
Condensed Program Deck 
Control Cards 
Condensed Program Deck 
Control Cards 

The coding sheets for the four phases are described 
in the order in which they are normally filled out. 



No. of 
Cards 

50 
variable 

32 
variable 

33 
variable 

12 
variable 



Sequence 
Numbers 



0001-0050 
1000-lxxx 
2000-2031 
3010-3xxx 
4000-4032 
5010-5xxx 
6000-6011 
7001-70xx 



form no. x24-6556 

Phase 4 — Report-Heading Control Cards (two cards 
maximum). 

Field-Headings Control Cards (four cards 
maximum). 

Phase 1 — Master-Report Control Card (one card maxi- 
mum). 

Control-Break Control Cards (four cards 
maximum). 

form no. x24-6557 

Phase 1 — Constants Control Cards (50 cards maxi- 
mum). 

form no. x24-6559 

Phase 3 — Detail Control Cards (variable) 

form no. x24-6558 

Phase 2 — Total Control Cards (variable) 



Phase 4 (Form No. X24-6556) 



Report-Heading Control Cards 

Two report-heading control cards (sequence numbers 
7001 and 7002) provide a maximum of 132 positions of 
report-heading information that may be printed at the 
top of each page of the report (carriage-tape chan- 
nel-1). Report-heading specifications are entered in col- 
umns 1-68 as follows: 



Card 
Columns 

1 

2 



Control Data 
H - Report-Heading Control Card. 

1 - First card. 

2 - Second card. 

Enter report-heading information (66 char- 
acters maximum for each card). Card 1 prints 
in positions 1-66, Card 2 prints in positions 
67-132. 

If a report heading is required, two cards always must 
be punched, and HI control card must precede H2 con- 
trol card. Depending on the length of the report heading 
and the print positions selected, either HI or H2 control 
card may be blank in columns 3-68. The report heading 
may include the word PAGE anywhere on the line if 
page numbering is specified. 

If a report heading is not required (preprinted forms), 
these two control cards are omitted. 



Field-Headings Control Cards 

Four field-headings control cards (sequence numbers 
7011-7014) provide two full 132 positions for field- 
heading information that may be printed on each page 
of the report following the report heading (carriage- 
tape channel-2). Field-headings specifications are en- 
tered in columns 1-68 as follows: 

Card 
Columns 

1 

2 



Control Data 
F - Field-Heading Control Card. 

1 - First Card. 

2 - Second Card. 

3 - Third Card. 

4 - Fourth Card. 

3-68 Enter field-heading information (66 charac- 

ters maximum for each card). Cards 1 and 2 
print first line of field headings: 

Card 1 - print positions 1-66. 

Card 2 - print positions 67-132. 
Cards 3 and 4 print second line of field 
headings : 

Card 3 - print positions 1-66. 

Card 4 - print positions 67-132. 

rule: If field headings are required, these four cards must enter 
the machine in ascending sequence. If not required (pre- 
printed forms), they are omitted. 

rule: Whether or not report and/or field headings are speci- 
fied, a blank card punched with the # (3-8) symbol in 
column 1 must be the last card in the combined program 
deck. In other words, it always precedes the first detail 
data card. This signals the end of FARGO program 
loading and the beginning of detail card processing. 
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Figure 2. FARGO Coding Sheets 



Phase 1 (Form No. X24-6556) 

Master-Report Control Card 

This card (sequence number 1000), always punched 
M in column 1, specifies: 

1. type of report (list or group-print). 

2. page overflow, if desired. 

3. page numbering, if desired. 

4. positions selected to print the page number any- 
where on the report-heading line. 

5. data to be group-indicated on the first line of each 
minor control group of a listed report only. 

The control data is entered in the various columns 
of the coding sheet as shown here. 



Card 
Columns 

1 

2 
3 



5-7 (from) 
8-10 (to) 



11 



12-14 (from) 
15-17 (to) 



18-20 (from) 
21-23 (to) 

24-36 



37-49 
50-62 



Control Data 

M - Master-Report Control Card. 

L - List; Blank - Group Print. 

O (alpha) - Page overflow to carriage-tape 

channel- 1. 

Blank - No page overflow. 

P - Page numbering if desired. 
Blank - No page numbering. 

ibm 1403 print positions selected for printing 
page number on report-heading line. (From 
indicates the left-hand or high-order print 
position while to indicates the right-hand or 
units print position.) 

First field to be group indicated. 

M - Move 

Z - Move and suppress zeros. 

Location of data in detail card to be group- 
indicated. (From indicates the left-hand or 
high-order card column, while to indicates 
the right-hand or units card column.) 

ibm 1403 print positions selected for printing 
first group-indicated field. 

Second field to be group-indicated. Same for- 
mat as Field 1. 

Third field to be group-indicated. Same for- 
mat as Field 1. 

Fourth field to be group-indicated. Same 
format as Field 1. 



Control-Break Control Cards 

These cards (sequence numbers 1001-1004) always 
punched B in column 1, specify the four control levels 
and define the card columns in which the control fields 
are punched in the detail cards. For a simple listed 
report with no controls, these cards are omitted. When 
controls are required, the specifications are recorded 
in columns 1-8 as follows. 



Card 
Columns 

1 

2 



3-5 (from) 
6-8 (to) 



Code Control Data 

B Control-break control card. 

1 First-level control (minor). 

2 Second-level control (intermediate). 

3 Third-level control (major). 

4 Fourth-level control. 
Location of control field. 



Split-Control Fields 

Normally, information in a given level control, iden- 
tified by a single card-field heading, is punched in 
consecutive columns of the card. In some cases, the in- 
formation may be punched in more than one card field 
but still in consecutive columns of the card. The va- 
rious card fields involved may be treated as one-level 
control merely by specifying the level desired (1, 2, 3, 
or 4), and the high-order position of the left-most field 
(from) and the low-order position of the right-most 
field (to). 

When a given level control (for example, minor) is 
split, that is, represented by two card fields that are 
not adjacent, one field is specified as minor (code 1) 
and the other field as intermediate (code 2). Because 
an intermediate control-break forces a minor total- 
level, all the total operations are specified in Tl (minor 
level) control cards in Phase 2. A single T2 (intermedi- 
ate level) control card, coded SPS in columns 52-54, 
follows. However, no total operations are specified on 
the intermediate level. For each extra B-control card 
required in Phase 1, one total level is sacrificed in 
Phase 2. 



rule: The master-report control card is always punched, even 
though it might be blank except for the M in column 1 
and the sequence number (1000) in columns 77-80. 
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Phase 1 (Form No. X24-6557) 



Phase 3 (Form No. X24-6559) 



Constants Control Cards 

These cards, punched C or S in column 1, define the 
length of each constant word, the label used in the 
program when referring to the constant, and the char- 
acters that compose the constant word, with or without 
a word mark. Constant areas of core storage used to 
accumulate totals must be given a label. A maximum 
of 50 constants control cards may be used. Any com- 
bination of characters except PGE may be used as a 
label. The reason PGE cannot be used is that a 4- 
position constant area is reserved by the program to 
permit addressing the page number counter. If page 
numbering is not required, the counter may be used 
for other purposes in the program, in which case the 
counter must be referred to by the PGE label. 

Because the number of constants control cards may 
vary from report to report, complete sequence num- 
bers are not preprinted on the form. Only the hun- 
dreds position (column 78) need be entered, using 
for the first 9 lines, then l's, 2's, etc., as required to 
establish sequence. If more than one sheet is needed, 
skip the first line (sequence no. 1010) on all overflow 
sheets and continue numbering with the second line 
(1x20). The same numbering scheme applies to se- 
quence numbers for Total and Detail Control Cards 
recorded on other forms. 

Specifications for constants are recorded in columns 
1-72 as follows. 



Card 
Columns 
1 

2-3 

4-6 

7-72 



Control Data 
C - Constant with a word mark. 
S - Special constant without a word mark. 
Number of positions in the constant word, 
including blanks. 

Label assigned to identify the constant word 
when referring to it in the program. 
Composition of the constant word (66 char- 
acters maximum). 
Blank positions are considered characters. 



Detail Control Cards 

These cards, always punched D in column 1, specify 
the various operations to be performed for each type 
of detail card as follows. 

1. Recognize type of card upon which operations spe- 
cified in the same card are to be performed. 

2. Move digits or zones from a single column of the 
detail card. 

3. Transfer constant words to print/punch areas. 

4. Transfer data from detail card to print/punch areas. 

5. Perform arithmetic operations on detail-card data. 

6. Print multiple lines from a single card. 

7. After printing a detail line, skip to a carriage-tape 
channel, or space 1, 2, or 3 lines. 

Detail-control-card specifications are recorded in 
columns 1 to 72 as follows. 



Card 
Columns 

1 

2-6 



D 



Control Data 
- Detail Control Card. 



If only one type of detail card, leave columns 
2-6 blank. If more than one type (maximum 
10), enter information in columns 2-6 as 
specified in the following rule. 

For operations that are to be performed on all detail 
cards regardless of type, leave column 2 blank and enter 
ALL in columns 3-5. On the last ALL control card, also 
enter an asterisk (*) (11-4-8) in column 2. ALL control 
cards must precede all other control cards punched D in 
column 1. 

For operations that are to be performed on specific 
types of detail cards, enter in column 2 the type code, in 
columns 3-5 the column in the detail card that contains 
the type code, and in column 6 C for a character test or 
Z for a zone test. The C and Z codes in column 6 con- 
trol the method to be used for determining the type of 
card indicated in column 2. 

Applications of this rule are illustrated in the fol- 
lowing examples. 

For detail cards where no operation is to be per- 
formed, columns 1-6 of the detail control card must 
always be punched. 

Applications of this rule are illustrated in the follow- 
ing examples. 



11 



Control Card 

Columns 
1 2 345 6 
D ALL 
D ALL 
D ALL 
D ALL 
D * ALL 

D - 080 G 



D - 080 Z 



D & 080 C 



D & 080 Z 



D 6 080 C 



D 6 080 Z 



D Z 080 C 



D Z 080 Z 



D 080 C 



D 080 Z 



Card 
Columns 

7-13 



Result 

Operations specified in these control cards 
are performed on all cards regardless of type. 

Last ALL control card. 

Character test. Operations specified in this 
control card are performed on cards con- 
taining only an X (11-punch) in column 80. 

Zone test. Operations specified in this con- 
trol card are performed on cards containing 
an X in column 80. This includes characters 
in the 11 -zone (/ to R). 

Character test. Operations specified in this 
control card are performed on cards con- 
taining only a 12-punch in column 80. 

Zone test. Operations specified in this control 
card are performed on cards containing a 
12-punch in column 80. This includes char- 
acters in the 12-zone (A to I). 

Character test. Operations specified in this 
control card are performed on cards con- 
taining a 6-punch in column 80. 

No-Zone test. Operations specified in this 
control card are performed on cards con- 
taining no-zone punches (0, 11, 12) in col- 
umn 80. For this type of test, any digit from 
1 through 9 can be used in column 2 of the 
control card. 

Character test. Operations specified in this 
control card are performed on cards con- 
taining the letter Z (0-9) in column 80. 

Zero-Zone test. Operations specified in this 
control card are performed on cards con- 
taining a zero-zone punch. This includes 
special character (/) and letters S to Z. For 
this type of test, any of the characters men- 
tioned can be used in column 2 of the con- 
trol card. 

Blank-column test. Operations specified in 
this control card are performed on cards that 
are blank in column 80. 

No-Zone test. Operations specified in this 
control card are performed on cards con- 
taining no-zone punches (0, 11, 12) in col- 
umn 80. This test can be used to differentiate 
between an X80 or NX80 condition. 

Control Data 



Special 4- or 7-position instructions coded in 
actual ibm 1401 machine language, to be 
executed for specific types of cards, can be 
inserted in these columns. Instructions can 
also be used to branch to patching subrou- 
tines written in actual machine language. 
The specific patch point in the program must 
be determined by the programmer. Instruc- 
tions for inserting patching subroutines are 
given under Patching. 



Card 
Columns 

15-17 (from) 
18-20 (to) 



21 



22-24 

25-27 (from) 
28-30 (to) 

31-33 (from) 
34-36 (to) 

37 



38-40 (***from) 
41-43 (to) 



44-46 (from) 
47-49 (to) 

50-52 (from) 
53-55 (to) 

56 



Control Data 

Enter the detail card column that contains 
the digit or zone to be moved. 

Enter the card column to which the digit or 
zone is to be moved. 

Control-card columns 14 through 20 are used 
primarily to move credit X-punches from 
some position of the data card to the units 
position of an amount field that is to be ac- 
cumulated or edited. If the position from 
which the X was moved must be cleared, 
another control card may be used to move 
a blank zone into the position from which 
the X was moved. 

E - Edit. 

L - Load edit control word. 

M - Move constant data. 

Z - Move and suppress zeros. 

D - Move digit. 

Y - Move zone. 

Enter the label assigned to the constant to 
be transferred to the print or punch areas. 

Print positions selected to print the constant 
data. 

Summary-card columns selected to punch 
the constant data. 

E - Edit detail data. 

M - Move detail data. 

Z - Move and suppress zeros from detail 

data. 
D - Move digit. 

Y - Move zone. 

Location of field to be transferred. 
***note: To conserve on 1401 core storage, 
subsequent references to the same field in 
the same card types may be made by in- 
serting asterisks in columns 38-40. This also 
applies to columns 57-59. 

Print positions selected to print detail data. 



Summary-card columns selected to punch 
detail data. 

A - Add. 

S - Subtract. 

@ - Multiply (4-8 punch). 

% - Divide (0-4-8 punch). 

? - Zero and Add (12-0 punch). 

! - Zero and Subtract (11-0 punch). 

D - Move digit. 

Y - Move zone. 

M - Move. 

Z - Move and suppress zeros. 



57-59 (***from) Location of field upon which operations 
60-62 (to) coded in column 56 are to be performed. 
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D 

Y 



Move digit. 
Move zone. 



63-65 



66-68 



Label assigned to constant upon which 
operations coded in column 56 are to be 
performed. 

Label of core-storage positions to be used as 
accumulator, multiplier-product, or quotient- 
dividend-remainder. 
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Card 
Columns 



70-71 
72 



Control Data 

P - Print. Primarily used for MLP printing. 
A control card is required for each MLP line 
to be printed from the same type of card. 
Coding in column 69 is required for all MLP 
lines except the last. Printing the last line of 
an MLP card is automatic. All lines printed 
from an MLP card are single-spaced. 

SP 
SK 



Space after printing a detail line. 
Skip after printing a detail line. 



1-3 - Single-, double-, or triple-space after 
printing. 

4-9 - Skip to corresponding carriage tape 
channels. 

In a listed report, skipping or spacing indi- 
cated in columns 70-72 takes place after 
printing of the detail line for' the particular 
type of card specified in column 2. 

In a group-printed report, skipping or spacing 
indicated in columns 70-72 causes no car- 
riage operation. In such cases, skipping and 
spacing is controlled with T (Total) control 
cards entered in Phase 2. 

When several control cards are entered for the same 
type of detail card, a skip or space instruction must be 
entered in the last control card of each type. 

For printing and punching the same detail data, two 
separate control cards are required: one to move data 
to print positions, the other to move data to punch po- 
sitions. This rule must be observed when entering data 
in control card columns 22-36 and 38-55. 



Phase 2 (Form No. X24-6558) 



Total Control Cards 

These cards, always punched T in column 1, specify 
the various operations to be performed for each class 
of total or each total within the same class. Operations 
include: 

1. Skip to a carriage tape channel, space before 
and/or after total printing, or eject from form to 
form. 

2. Add one total-level accumulator to a higher-level 
accumulator. Subtract one total-level accumulator 
from a higher-level accumulator. Multiply or di- 
vide one total by another on the same level. 

3. Crossfoot totals on any total level desired. 

4. Load or move constant data to the printer output 
area. 

5. Move, move and suppress zeros, or edit accumu- 
lated totals to the print or punch areas. 

6. Move digits or zones from a single storage position. 
For example, remove or add a sign to the units 
position of a total. 

7. Clear accumulators. 

8. Print constants on total levels to identify totals. 

9. Print totals on total lines. 



10. Print multiple lines of information read from a 
single card in Phase 3. 

11. Punch summary cards. 

Several totals within the same class, designated by 
field headings, may be printed horizontally on the 
same line, each under its appropriate column of the 
report. Or, they may be identified by constants and 
printed vertically on separate lines in the same col- 
umn of the report. Examples: 



Gross 

Earnings 

150.00 



Horizontal Method 

Withholding Other 

Tax F.I.C.A. Deductions 

27.00 5.44 10.00 



Net 

Pay 

107.56 



Vertical Method 



Gross Earnings 
Less WHTax 
F.I.C.A. 

Other 

Net Pay 



150.00 

27.00 

5.44 

10.00 

107.56* 



Similarly, different classes of totals may be printed 
horizontally under designated report columns or ver- 
tically in the same report column. 

Total-control-card specifications are recorded in 
columns 1 to 56 as follows. 
Card 
Columns Control Data 

1 T - Total control card. 

2 1 - Minor-total level. 
Intermediate-total level. 
Major-total level. 
Fourth-total level. 
Fifth- (final) total level. (Occurs on last 

card runout with Sense Switch A 
turned ON.) 
3-4 SP - Space before total printing. 

SK - Skip before total printing. 

5 Enter 1^3 to space number of times desig- 
nated. 

Enter 4-9 to skip to corresponding carriage 

tape channels. 

note: Because normal single spacing is 
automatic, leave columns 3-5 blank 
if normal spacing is desired. 

6 A - Add. 
Subtract. 

Multiply (4-8 punch). 
Divide (0-4-8 punch). 
Move. 

Label of accumulator read out of. 

Label of accumulator read into. 



A 

S 
@ 
% 
M 



7-9 (from) 
10-12 (to) 
13 



L - Load edit control word. 

M - Move constant data. 

Z - Move and suppress zeros. 

14-16 Label assigned to constant being moved or 

loaded. 

17-19 (from) Print positions selected to print constant 

20-22 (to) data. 

23 E - Edit total or constant data. 

M - Move total or constant data. 
Z - Move and suppress zeros from total or 
constant. 
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Card 
Columns 

24-26 

27-29 (from) 
30-32 (to) 



33-35 (from) 
36-38 (to) 



Control Data 

Label assigned to accumulator or constant. 

Print positions selected to print total or con- 
stant data addressed by the label coded in 
columns 24-26 of the same control card. 

Summary-card columns selected to punch 
total or constant data addressed by the label 
coded in columns 24-26 of the same control 
card. 



rule: For printing and punching from the same accumulator, 
two separate control cards are required. One moves data 
to print positions, and the other moves data to punch 
positions. 

39 D - Move digit (only) portion of a charac- 

ter from one card column to another 
in punch area. 
Y - Move zone (only). 



Card 
Columns 



Control Data 



40-42 



43-45 



46 



47-49 



Summary-card column from which digit or 
zone is to be moved. 

Summary-card column to which digit or zone 
is to be moved. 

S - Clear accumulator by subtracting it 
from itself. 

Label assigned to accumulator to be cleared. 



note: When both printing and punching from the same ac- 
cumulator, clear accumulator on the second control card, 
after information has been transferred to the print and 
punch areas. 

50 P - Print total line. All totals within the 

same level may be printed on one line 
or on separate lines. 



51 



52-53 



P - Punch total summary card. All totals 
within the same level may be punched 
in one card or in separate summary 
cards. 

SP - Space after total printing. 
SK - Skip after total printing. 



54 Enter S to single space. 

Enter 1-3 to obtain additional spaces beyond 
the normal single space (1 for double 
space, 2 for triple space, 3 for quad- 
ruple space). 
Enter 1-9 to skip to corresponding carriage 
tape channels. 
note: When skipping to carriage-tape channel- 1 after total 
printing, report and field headings do not print. 

rule: When several totals within the same level are printed on 
separate lines, the last T (Total) control card for each 
total level must contain a Skip, Space, or Eject instruc- 
tion. If normal single spacing is desired, the last control 
card must be coded SPS in columns 52-54. 

55 E - Eject form to carriage-tape channel- 1 

after total printing. Report and field 
headings will print on the next page 
following the eject. 

56 * - The last T control card specified in 

Phase 2 (Form No. X24-6558) must 
contain an asterisk (*) punch in col- 
umn 56. 
rule: When four control levels are specified in the problem, 
final-total operations are specified on level 5. When less 
than four control levels are specified, final-total operations 
are specified on the next higher level. Examples: 

No controls, final-total operations are specified on 

level 1. 
Minor control only (level 1), final-total operations are 

specified on level 2. 
Minor and intermediate controls (levels 1 and 2, re- 
spectively), final-total operations are specified on 
level 3. 
Minor, intermediate and major controls (levels 1, 2 
and 3, respectively), final-total operations are speci- 
fied on level 4. 
For all the conditions mentioned in these examples, 
the last final-total control card must contain an asterisk 
(*) punch in column 56. 

If Final Totals are not required, a last-card-runout 
total-card for level 1, 2, 3, 4 or 5 must contain an 
asterisk in column 56. 

The level is always one higher than the number of 
control levels specified in the problem. 



14 



Automatic-Carriage-Control Operation 

Page overflow is controlled by the letter O in column 3 
of the master-report control card — Phase 1. Ejecting 
from form to form (carriage-tape channels 12 to 1), and 
skipping to carriage-tape channels 2 and 3, occur auto- 
matically as shown in Figure 3, depending on the 
presence or absence of report- and field-headings con- 
trol cards — Phase 4. 
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Figure 3. Automatic-Carriage-Control Operation 
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Operating Instructions 

To prepare reports with FARGO, proceed as follows: 

1. Ready the ibm 1403 Printer. 

a. Insert into the carriage the paper or form on 
which the report is to be printed. Make the neces- 
sary vertical and horizontal adjustments to properly 
position the form. 

b. Insert the carriage tape punched as follows. 

Normal Condition 

Channel 1 - Report-heading line. 
Channel 2 - First field-heading line. 
Channel 3 - First body line. 
Channels 4-9, if required. Skip-stops for pre- 
determined line printing. 
Channel 12 - Overflow line. 
note: For conditions other than normal, channels 
2 and/or 3 may not be required. (See Figure 3.) 

c. Set feed-clutch knob to neutral position. 

d. Press carriage-restore key. 

e. Turn feed-clutch knob back to drive position. 

f . Press check-reset key on the 1403 printer. 

2. Ready the 1401 Console. 

a. Set mode switch to run position. 

b. Set I/O check-stop switch to the on (up) posi- 
tion. 

c. Set sense switch A to the on (up) position. 

d. Press check-reset key on the 1401 console. 

e. Press the start-reset key on the 1401 console. 

3. Ready the 1402 read-punch unit. 

a. Set reader switch to on. 

b. Press the non-process runout read key to clear 
the read feed. 

c. Place FARGO program and detail cards in the 
1402 read unit in the sequence illustrated in Fig- 
ures 1 or 6. 

d. If summary punching, set punch switch to the 
on position. 

1. Press the non-process runout punch key to 
clear the punch feed. 

2. Place cards to be summary punched in the 
punch hopper. 

e. Press check-reset key on the 1402 read-punch 
unit. 

f . Press load key on the 1402 read-punch unit. 

If the control cards punched from the FARGO cod- 
ing sheets contain no errors, the program is loaded 
in approximately 20 seconds. Processing of detail data 
cards is started immediately thereafter. When the last 
card has left the hopper and the machine stops, press 
the start key on the 1402. If specified in the program, 
final totals print automatically on the runout. 



Program Halts 

Program halts may occur not only during the loading 
of the FARGO program deck (Phases 1 to 4) but also 
during processing of the detail cards. Halts occurring 
during Phases 1 to 4 indicate that the control cards 
punched from the coding sheets are not in the proper 
sequence as shown in Figure 1. Or, if they are in the 
proper sequence, invalid codes are punched in column 
1 of the control cards. Valid codes are M, B, C, S, T, 
D, H, F, or # . Codes other than these are invalid. 

Following is a list of program halts, reason for halt, 
and procedure for restarting. When the halt occurs, 
the last card in the read stacker (NR) has an invalid 
code in column 1. 



Storage Address 

Displayed Phase 

2639 1 

2947 1 

2363 2 

2379 3 

3090 4 



Reason for Halt 
Card has other than M. 
Card has other than B, C, or S. 
Card has other than T. 
Card has other than D. 
Card has other than H, F, or #. 

To restart from any of these halts, proceed as follows. 

1. Remove cards from read hopper. 

2. Press non-process runout read key. 

3. Remove the last three cards from the read stacker 
(NR). The first of these three cards is the control 
card in error. 

4. Correct the error. 

5. Replace the three cards in front of the cards taken 
from the read hopper. 

6. Place the card file in the read hopper. 

7. Press check reset key on the 1402. 

caution: Do not press the start reset key on the 1401 
console. 

8. Press start key on the 1402 read unit. 

During processing of detail cards, if the machine 
stops with the red Stop Light on (1401 Console) and 
storage address 0157 displayed, a constants label has 
been referred to in one of the T or D control cards for 
which there is no corresponding constants control card. 
This may be due to misspelling the 3-character label 
abbreviation on the T or D control card. Or, it may 
be that constants control card was inadvertently omit- 
ted in the constants coding sheet. To restart, proceed 
as follows. 

1. Remove all cards from read hopper and file feed. 

2. Press non-process runout read key on the 1402. 

3. Locate erroneous control card, make corrections, 
and restart from the beginning. 

If the machine stops with the red Stop Light on and 
storage address 3547 displayed, the last card in the 
stacker is a type of card for which no entry was made 
on the Phase 3 code sheet. 
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During processing of detail cards, the program may 
hang up at an unknown address with the following 
lights on: 
process 
check reset 
a- or i-address register. 
The A-Address Register Light means that an edit 
control word entered in the constants coding sheet is 
too small for the data being edited. The I-Address 
Register Light means that a 1401 operation code rep- 
resented by an invalid character is detected in storage. 
To locate the edit control word that is too small for 
the data being edited, execute a storage print-out as 
follows. 

1. Set mode switch to storage print-out. 

2. Press I-address register key and note address loca- 
tion displayed. 

Turn hundreds and thousands manual-address 
switches to digits corresponding to the hundreds 
and thousands positions displayed. 
Press start key on the 1401 console. 
Examine the storage print-out and find the I-address 
displayed in Step 2. 

Go back from there to the first load (L) instruction. 
The A-operand of this instruction contains the stor- 
age address of the edit control word that is too 
small. 

7. Locate constants control card, make corrections, 
and restart from the beginning. 

To locate and correct an invalid character used as 
an operation code execute a storage scan as follows. 

1. Set mode switch to storage scan. 

2. Set manual-address switches to 0000. 

3. Hold down the start key. 

4. Machine stops when an invalid character is detected 
in storage. The storage position in error is shown in 
the storage-address display unit. The B-register dis- 
plays the contents of the storage position in which 
the error is detected. 



3. 



5. Locate the control card in which the invalid charac- 
ter is punched and remove it from the program 
deck. 

6. Correct the error by punching a new control card 
and inserting it in the program deck. 

7. To restart, a complete card runout and start reset is 
necessary. 



Patching 

The term patching as used in connection with FARGO, 
means linking a special subroutine or library program 
to the main FARGO program. The linkage is accom- 
plished by branching from a specific patch point in 
Phase 3 (detail control cards) or Phase 2 (total control 
cards) to the patch subroutine, then branching back 
to the main FARGO program, after the subroutine is 
executed. 

With a 4k machine, at least 956 storage positions 
are available for storing patch subroutines. In some 
cases, depending upon the complexity of the report 
involved, more storage positions may be available. 
These subroutines must be entered into the machine 
in actual 1401 machine language. Therefore, a knowl- 
edge of 1401 programming or symbolic programming 
(SPS) is a prerequisite. 

The specific patch point(s) for linking subroutines 
is determined by the programmer as he normally 
writes the FARGO instructions. These patch points are 
first recorded on Phase 3 and Phase 2 coding sheets as 
4- or 7-position no-op instructions. They are changed 
later to unconditional branch instructions after the 
exact locations of the patch subroutines are deter- 
mined. 



Phase 3 — Detail No-Op Control Cards 

At each point in Phase 3 where branching to sub- 
routines is required, make an entry on the coding sheet 
in columns 1, 2-6, and 7-10 as shown in Figure 4. 



DETAIL CONTROL CARDS - PHASE 3 


D 


Type of 
Detail 
Card 


Special 

7 posi 

1401 Inst 

(aetu 


4 or 
ion 


Column Split 


E = Edit 

L = load Edit Control Word 

M ~ Move Constant Data 

'. — Move and Suppress Zeros 

D = Move Digit 

Y = Move Zone 


E ~ Edit DETAIl CARD DATA 

M = Move 

t = Move and Suppress Zeros 

J = Move Digit 

V = Move Zone 


C = Char. 
Z = Zone 


C 

Z 


ruction 
Jl) 


D - Move Digit 
Y = Move Zone 


Label 


Print 
Positions 


Punch 
Positions 


Data Card 
Columns 


Print 
Positions 


Punch 
Positions 


o 

o 

U 


Card 
Cols. 


O 
P 


A 


B 


f From 


To 


f From 


From 


To 


From 


To , 


t From 


To 


From 


To 


From 


To 


1 
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7 
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Figure 4 
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The D in column 1 is preprinted on the form. This 
indicates that branching to the patch subroutine is to 
occur during the detail portion of the program. The 
codes entered in columns 2-6 specify the type of detail 
card for which the patch subroutine is to be executed. 
The entry, N000 in columns 7-10, is the no-op instruc- 
tion. This is changed later to an unconditional branch 
instruction (Bxxx), with xxx indicating the actual ma- 
chine address of the patch subroutine. 



Phase 2 — Total No-Op Control Cards 

At each point in Phase 2 where branching to sub- 
routines is required, make an entry on the coding sheet 
in columns 1, 2, and 39-45 as shown in Figure 5. 

The T in column 1 is preprinted on the form and 
indicates that branching to the patch subroutine is to 
occur during the total portion of the program. Any 
digit from 1 to 5 entered in column 2 specifies the 
program level during which the patch subroutine is to 
be executed. The entry N788788 in columns 39-45 is 
the no-op instruction. This must be changed later by 
an instruction in the patch subroutine to an uncon- 
ditional branch instruction (Bxxxbbb), with xxx indicat- 
ing the actual machine address of the patch subroutine 
and bbb indicating blanks. 

The FARGO program, including the no-op control 
cards that cause no machine operation, is completely 
tested with a representative deck of detail data cards 
and approved before the subroutines are inserted in- 
to the program deck. This is necessary because any 
change in the FARGO control cards after the sub- 
routines are inserted affects the storage locations of the 



generated report program, requiring changes in the 
subroutine instructions. 

After the FARGO-generated portion of the report 
is satisfactorily tested, execute a storage print-out 
and examine it to determine: 

1. the end of the FARGO-generated program. 

2. storage location of patch points (no-op detail and 
total control cards). 

The end of the generated program is determined by 
locating the report-heading information that is loaded 
into storage immediately after the last instruction from 
the detail control cards. If report-heading information 
is not specified in Phase 4, the end of the generated 
program is the last BE66 instruction. This instruction 
appears following the last generated instruction for 
each type of detail card specified in Phase 3. There- 
fore, the end of the generated program is either the 
last position of the report-heading information (includ- 
ing blanks), or the last JBE66 instruction. The area 
available for storing the patch subroutines extends 
from this point (storage location 2358 or lower, depend- 
ing upon the complexity of the report involved) to 
3313. Thus, with a 4k machine, 956 storage positions 
or more are available for patch subroutines. Obviously, 
with machines of greater capacity, an additional amount 
of storage is available, starting with location 4000. 

The storage location of each patch point is deter- 
mined by visually scanning the storage print-out and 
finding the no-op instructions. Detail no-op instructions 
are identified by N000. Total no-op instructions are 
identified by N888888. N888888 was recorded on the 
coding sheet as N788788 but changed by the FARGO 
program to N888888. 



TOTAL CONTROL CARDS - PHASE 2 
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Converting No-Op Instructions 

The control card containing the detail no-op instruc- 
tion (N000) may be removed from the FARGO deck 
and replaced with a control card containing an un- 
conditional branch instruction Bxxx. Or, it may remain 
in the deck in which case the no-op instruction must 
be converted to an unconditional branch instruction 
Bxxx by an instruction in the patch subroutine. 

The control card containing the total no-op instruc- 
tion (N788788) always remains in the FARGO deck. 
The no-op instruction, therefore, must be converted 
to an unconditional branch instruction Bxxxbbb by 
an instruction in the patch subroutine. 



Coding the Patch Subroutines 

As previously stated, a patch subroutine must be en- 
tered in storage in actual 1401 machine language. It 
may be written in symbolic language and assembled 
with an assembly processor as described in IBM 1401 
Sy mobile Programming Systems, Form C 24-1480. 

To branch back to the main FARGO routine after 
the subroutine is executed, the last instruction in each 
patch subroutine must be an unconditional branch in- 
struction. For example, if a detail (Phase 3) no-op 
instruction (N000 converted to Bxxx) is in locations 
1445-1448 as noted in the storage print-out, the last 
instruction in the subroutine used at this point must 
branch back to 1449. If a total (Phase 2) no-op instruc- 
tion (N888888 converted to Bxxxbbb) is in locations 
1201-1207 as noted in the storage print-out, the last 
instruction in the subroutine used at this point must 
branch back to location 1208. 

If coded in SPS, the program is assembled after 
testing the FARGO portion of the job so that the origin 
address of the subroutine can be determined from the 
storage print-out. When the object program deck is 
created by the SPS assembly processor, the first two 
cards contain instructions to clear storage. These two 
cards must be removed from the deck. The rest of the 
object program deck (one instruction per card) can 
then be loaded directly behind Phase-4 control cards. 
Or it can first be condensed into multiple instructions 
per card with a condensing program as described in 
IBM 1401 Symbolic Programming Systems, Form C24- 
1480. 

An example of a patch subroutine coded in actual 
machine language is shown in Figure 23-G. Another 
example of FARGO patching and linkage using SPS is 
shown in Figure 24. 



NOTE: 

If the 1401 does not have a Multiply-Divide optional 
feature, the Multiply-Divide Subroutines discussed 
in the 1401 Reference Manual can be patched into the 
FARGO program. 
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FARGO PROGRAM 

AND CONTROL CARDS 

( Phases 1 - 4 ) 




1. Combined FARGO Program and FARGO Control Cards 

2. Last card in Phase 4 punched # in columns 1 and 2 

3. Patch subroutine(s) 

4. Trailer card containing instructions to clear the 
read-in area, and branch to 3314(C14). 

5. Report Detail Data Cards 



Figure 6. FARGO with Patch Subroutine 



Loading the Patch Subroutines 

All patch subroutines are loaded immediately after 
the Phase-4 control cards. Normally, the last Phase-4 
control card is punched # in column 1 of a blank card. 
To signal the FARGO program that patch-subroutine 
instruction cards are to be read into the system after 
Phase 4 is completed, this same card must also have 
a # punched in column 2. This causes the program 
to clear the read-in area (locations 1-80), set a word 
mark in location 001, read the next card, and then 
branch to location 001. 

After the last patch subroutine is loaded, a clear- 
and-branch trailer card must follow to clear the read- 
in area, and branch to location C14 (3314), this being 
the starting location of the permanent FARGO pro- 
gram. The report detail cards immediately follow the 
trailer card. 

The cards are run through the machine in the se- 
quence illustrated in Figure 6. 
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Multiply-Divide Optional Feature 

If the multiply-divide optional feature is installed in 
the 1401, direct multiplication and division can be 
specified with FARGO detail and/or total (Phases 3 
and 2) control cards. Before the proper entries can be 
made in these coding sheets, however, several factors 
must be considered. 



Multiplication 

Whenever FARGO report specifications involve a mul- 
tiplying operation, the first thing that must be decided 
is the size of the product to be developed. As explained 
in the ibm 1401 Data Processing System Reference 
Manual, A24-1403, this is done by adding 1 to the 
sum of the number of digits in the multiplier and the 
multiplicand. Assuming a 3-digit multiplier and a 4- 
digit multiplicand, the size of the product can then be 
readily determined by the following formula: 

3 (multiplier) plus 4 (multiplicand) plus 1 = 8 ( size of product ) . 

The multiplier may be fixed; that is, not punched 
in the detail cards but set up as a constant with an 
identifying label in Phase 1 for later reference in 



Phases 3 or 2. Or, it may be variable; that is, punched 
in each detail card or some specific type of card within 
a control group. 

A fixed multiplier (example: 125) may be set up as 
a constant in one of several ways as shown in Figure 7. 

A variable multiplier may be punched in known 
columns of all or specific types of detail cards. 

Multiplicands are always variable and may be 
punched in known columns of all or specific types of 
detail cards. Or, they may be developed as a total 
in an accumulator and identified with an appropriate 
label. Although any 1-, 2-, or 3-character label may be 
used to identify an accumulator, many users of 
FARGO prefer to use labels corresponding to 407 
counters; for example, 2A, 2R, etc., 4A, 4B, etc. 

Experience has shown that this method of labeling 
accumulators often simplifies the conversion of report 
specifications from the 407 to the 1401. 

Having determined the size of the product, set up 
a work area in storage for developing and retrieving 
the product. This is done by making two successive 
entries on the constants control cards coding-sheet 
(Phase 1) as shown in Figure 8. 



CONSTANTS CONTROL CARDS - PHASE 1 
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CONSTANTS CONTROL CARDS - PHASE 1 
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The first entry, C (constant with a word mark), sets 
up the three high-order (left-hand) positions of the 
product work area into which the 3- digit fixed or 
variable multiplier will be moved later with a T or D 
control card. 

The second entry, S (constant without a word mark), 
sets up the five low-order (right-hand) positions of the 
product work area, thus establishing an 8-position 
product work area somewhere in storage. 

Multiplying in Phase 3 with a Fixed Multiplier 

Multiplying with a fixed multiplier (125) can be spe- 
cified for all or any specific type of detail card by 
making the entries in columns 56-68 as shown in 
Figure 9. 

The first or second entry ? (whichever one is used) 
zeros (resets) and adds the constant 125 in the three 
high-order (left-hand) positions of the product area. 

Entry @ multiplies the 4-digit multiplicand punched 
in columns 31-34 of the detail card by the fixed multi- 
plier (125). When the multiplying operation is com- 
pleted, the product is in the seven low-order positions 
of the product area, thus destroying the multiplier. The 



fixed multiplier, however, is still available for subse- 
quent operations from the area labeled 125 or fix. 

Following the multiply operation @, another entry 
moves the product either to print positions and/or to 
an accumulator identified by a constant label. If the 
product is to be punctuated, an edit control word is 
first loaded into the desired print positions. The prod- 
duct is then moved to the same print positions with 
an E (edit) instruction. 

Multiplying in Phase 3 with a Variable Multiplier 

Multiplying with a variable multiplier can be specified 
for all or any specific type of detail card by making 
the entries in columns 56-68 as shown in Figure 10. 

Entry ? zeros (resets) and adds the variable 3-digit 
multiplier punched in columns 21-23 of the detail 
card into the three high-order (MPR) positions of the 
product area. 

Entry @ multiplies the 4-digit multiplicand punched 
in columns 31-34 of the detail card by the variable 
3-digit multiplier punched in columns 21-23 of the 
same card. The product is developed in the same 
manner as previously described. 
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Multiplying in Phase 2 

Multiplying in Phase 2 (total control cards) always 
involves three labels. One label identifies a fixed- or 
group-multiplier. A second label identifies an accumu- 
lated multiplicand, while a third label identifies the 
product. 

In establishing the size of the product, the same 
rule applies. However, because the multiplicand factor 
is an accumulated total, the maximum number of 
digits expected in the multiplicand must be predeter- 
mined before setting up a product work area. 

Having determined the size of the product, make 
the appropriate C and S entries on the constants con- 
trol cards coding-sheet (Phase 1) to set up the product 
work area. 

During the Phase-3 (detail) portion of the program, 
a fixed multiplier set up with a constant control card, 
or a group multiplier punched in a specific detail card 
within the control group, is moved to the MPR portion 
of the product work area. The detail multiplicands are 
accumulated in a storage area labeled, for example, 
MCD. On any given total level in Phase 2, multipli- 
cation is specified by making the entry in columns 
6-12 as shown in Figure 11. 

Entry @ multiplies the accumulated multiplicand 
labeled MCD (or any other label chosen by the pro- 
grammer) by the fixed- or group-multiplier moved to 
the MPR portion of the product work area during 
Phase 3. The product is developed in the product work 



area labeled PDT (or any other label chosen by the 
programmer). For example, in a payroll application, 
the multiplier might be labeled RTE (rate), the mul- 
tiplicand HRS (hours), and the product GES (gross 
earnings). In another application, the multiplier might 
be labeled UNP (unit price), the multiplicand QTY 
(quantity), and the product AMT (amount). 



Division 

Whenever FARGO report specifications involve a di- 
viding operation, a work area for accommodating the 
dividend and developing the quotient and dividend/ 
remainder must be set up in storage with constants 
control cards in Phase 1. The size of this work area 
must be equal to the sum of the number of digits in the 
divisor and dividend, plus 1. Assuming a 3-digit di- 
visor and a 4-digit dividend, the size of the work area 
can be readily determined by the following formula: 

3 (divisor) plus 4 (dividend) plus 1 = 8-position work area. 

Having determined the size of the work area, set up 
the area in sections to permit addressing specific 
locations of the quotient, dividend, and dividend/ 
remainder. These sections must be set up in proper 
sequence, which may vary, depending on the size of 
the dividend and the divisor. For the example used, 
the following analysis of the problem illustrates how 
this sequence is established. 
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PROBLEM ANALYSIS 



Quot. 



Dividend 

+ 
xlxlxlxl 



8-position area required for example used. 



Counting from the low-order position of 
the work area, draw a line to the left of 
the length of the divisor plus 1. 
3 (divisor) plus 1=4. 



To the left of this line, a 4-digit quotient 
is developed. 

-The units position is the address of the 
quotient upon completion of the divide 
operation. 



The 4-digit dividend with a plus sign in 
the units position is placed in the low- 
order positions of the work area with a 
zero and add instruction (?). 
The high-order position of the dividend 
must be addressed when executing the 
divide instruction. 



Quot. Div/Rem 



+ 
Ixlxlxlx 



+ 
Olxlxlxl 



t_ 



The units position of the work area is 
the address of the dividend/remainder 
upon completion of the divide operation. 
With a 3-digit divisor, the dividend/re- 
mainder is always less than the divisor. 
Therefore, the position immediately to 
the right of the quotient is always zero. 



To set up the three sections of the work area in the 
sequence established by the foregoing analysis, make 
three entries in the constants control card coding-sheet 
as shown in Figure 12. 

Entry C (constant with a word mark) sets up the 
4-digit quotient section of the work area. 

The first entry S (constant without a word mark) sets 
up the high-order position of the dividend. This posi- 
tion is addressed when executing the divide instruc- 
tion. 

The second entry S sets up the remaining low-order 
positions of the work area, thus establishing the 8- 
position work area required for the example used. 

In some problems, the analysis will show that the 
quotient area and the dividend area overlap; that is, 
the high-order position of the dividend extends further 
to the left than the low-order position of the quotient. 
Example: 5-digit dividend, 2-digit divisor. 

Quot. jD/R 

|x|x|x|x|x|0|x|x| 

Dividend 

| | | | X | x 1 X | X | X | 

In such cases, the work area is set up in four sections 
as shown in Figure 13. 

Other variations are presented later in this manual 
under Half-Adjustments of Products and Quotients. 
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CONSTANTS CONTROL CARDS - PHASE 1 
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Dividing in Phase 3 with a Fixed Divisor 

Assuming that the fixed divisor (3 digits) is set up in 
storage with a label fix, and the 4-digit dividend is 
punched in detail card columns 21-24, the divide in- 
structions are recorded in detail control cards Phase-3 
coding-sheet as shown in Figure 14. 

Entry ? zeros (resets) and adds the dividend punched 
in columns 21-24 in the four low-order positions of the 
work area placing a plus sign in the units position, if 
the dividend is positive. 

Entry % addresses the high-order position of the 
dividend, divides it by the fixed divisor, and develops 
a 4-digit quotient in the high-order positions of the 
work area labeled QNT. 

Following the divide operation, another entry moves 
the quotient to print positions and/or to accumu- 
lator identified by a constant label. If the quotient is 
to be punctuated, an edit control word is first loaded 
into the desired print positions; the quotient is then 
moved to the same print positions with an E (edit) 
instruction. 

Dividing in Phase 3 with a Variable Divisor 

Dividing with a variable divisor can be specified for 
all or any specific type of detail card. Assuming that 
the 4-digit dividend and the 3-digit divisor are 
punched in columns 21-24 and 25-27, respectively, the 



entries are made in columns 56-68 as shown in Fig- 
ure 15. 

Entry ? zeros (resets) and adds the dividend punched 
in columns 21-24 in the four low-order positions of the 
work area placing a plus sign in the units position, if 
the dividend is positive. 

Entry % addresses the high-order position of the 
dividend, divides it by the divisor punched in columns 
25-27, and develops a 4-digit quotient in the high- 
order positions of the work area labeled QNT placing 
a sign in the units position of the quotient. 



Dividing in Phase 2 

Dividing in Phase 2 (total control cards) involves an 
accumulated factor that may be either the dividend 
or the divisor. Once the sizes of these factors are 
known, appropriate C and S entries, as previously de- 
scribed, are made on the constants control cards cod- 
ing-sheet (Phase 1) to set up the work area. 

Assume that the accumulated factor developed in 
Phase 3 (detail portion of the program) under the label 
AMT (amount) is to be used as the dividend. The 
divisor is either a fixed- or a group-divisor, properly 
identified with any label chosen by the programmer. 
On any given total level in Phase 2, division is specified 
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by making the entries in columns 6-12 as shown in 
Figure 16. 

Entry ? zeros (resets) and adds the accumulated 
amount (AMT) in the low-order positions of the work 
area (D/R). 

Entry % addresses the high-order position of the 
dividend (DIV), divides it by the divisor (xxx), and 
develops the quotient in the high-order positions of 
the work area labeled QNT. 

Assume that the accumulated factor developed in 
Phase 3 under the label QTY (quantity) is to be used 



as the divisor. The dividend is either a fixed- or a 
group-dividend properly identified with any label 
chosen by the programmer. On any given total level in 
Phase 2, division is specified by making entries in col- 
umns 6-12 as shown in Figure 17. 

Entry ? zeros (resets) and adds the fixed- or group- 
dividend (xxx) into the low-order positions of the 
work area (D/R). 

Entry % addresses the high-order position of the 
dividend (DIV), divides it by the accumulated quan- 
tity (QTY), and develops the quotient in the high- 
order positions of the work area labeled QNT. 



TOTAL CONTROL CARDS - PHASE 2 
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TOTAL CONTROL CARDS - PHASE 2 
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Half -Adjustments of Products and Quotients 

Products and/or quotients may be half-adjusted 
(rounded) by adding 5 to the position in the product 
or quotient immediately to the right of the wanted 
result. If the position to which the 5 is added stood at 
5, 6, 7, 8, or 9, a carry occurs to the units position of 
the wanted result, thus rounding the product or quo- 
tient by adding the carry-over 1. If the position stood 
at 0, 1, 2, 3, or 4, the carry does not occur and the 
product or quotient is not adjusted. This procedure 
is often used to round out results to the nearest cent. 
The following examples illustrate. 

Product Adjustment 

Assume a 4-digit multiplicand (with two decimals) 
and a 3-digit multiplier (all decimals). 



EXAMPLE 

Product 
Vi adjust 



34.85 
X .125 
4.351625 



4.36 



500 
125 



Rule for placing the decimal point in 

the product: 

The sum of the number of decimal 
positions in the multiplicand and 
the multiplier equals the number 
of decimal positions in the product. 



Rounded Product Dropped decimals 



PROBLEM ANALYSIS 



MPR 

+ 

|x|x|x| 
125 



4-digit multiplicand plus 3-digit multi- 
plier plus 1 = 8-position work area. 



3-digit multiplier area (label MPR). 



PROD 

|0|x|x|x 

4.3'5'6'25 



UCT ± 

Ixlxlxlxl 



t_ 



± 

500 



ADJ PDT 



Units position of developed product (label 
PDT). Upon completion of multiply op- 
eration, sign in this position must be 
moved to the units position of Constant 
500 (label RND). 

RND with sign must then be added into 
the 3 low-order positions of the devel- 
oped product. 
Units position of wanted product. 



|0|x|x|x 

4.3 6 125 



± 
xlxlxl 



■ Units position of adjusted product (label 
ADJ). Sign in units position of PDT must 
be moved to units position of ADJ. 



To set up the three sections of the 8-position work 
area (MPR, ADJ, PDT), the constant 500 (RND), and 
an edit control word (ECW) to edit the adjusted 
product, five entries are made in the constants control 
cards coding-sheet as shown in Figure 18. 

Characters &CR in the edit control word are not 
required if the products are always positive. The zero 
(0) to the left of the decimal point suppresses all 
insignificant zeros to the left of the decimal point, and 
the & causes a space between the units position of 
negative amounts and CR symbols. Examples of edit 
printing: 

.09 

4.36 

15.08 

.07 CR 

8.39 CR 

29.06 CR 

To make proper entries on the coding sheets for this 
example, base the specifications on the following as- 
sumptions. 

1. Multiplication is to be accomplished for all detail 
data cards (Phase 3). 

2. Multiplier is punched in columns 21-23, with an 
X punch in column 23 if negative. 

3. Multiplicand is punched in columns 31-34, with an 
X punch in column 34 if negative. 

4. Adjusted product (positive or negative) is to be 
edited and printed in print positions 101-109, with 
no sign if positive, and cr symbols if negative. 

To accomplish item 4, make the following entries in 
addition to those required to perform the basic mul- 
tiplication. 

1. Move the plus or minus sign from the units position 
of the developed product to the units position of 
the constant RND 500. 

2. Add RND with sign to the low-order positions of 
the developed product (PDT). 

3. Move the sign from the units position of PDT to 
the units position of the adjusted product (ADJ). 

4. Load edit control word (ECWbbO.bb&CR) to print 
positions 101-109. 

5. Edit and print ADJ in print positions 101-109. 
Seven entries are required in various columns of 

detail control cards (Phase 3) coding-sheet as shown 
in Figure 19. 



26 



CONSTANTS CONTROL CARDS - PHASE 1 


c 

or 
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DETAIL CONTROL CARDS - PHASE 3 
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Quotient Adjustment 

Assume a 6-digit dividend (with two decimals) and a 
3-digit divisor (with no decimals). 



EXAMPLE 



0034.856 < — Extended quotient adjusted to 34.86 by 
adding 5 to the units position. 



125)4357.120 
375 
607 
500 
1071 
1000 

712 (end of actual 

dividend) 
625 
870 (dividend 
extended) 
750 

120 (end of 
division) 



PROBLEM ANALYSIS 



Rule for placing the decimal point 

in the quotient: 

Number of decimals in the divi- 
dend minus the number of deci- 
mals in the divisor equals the 
number of decimals in the quo- 
tient. 



To set up the various sections of the work area in 
the proper sequence and to set up other required con- 
stants as analyzed in the foregoing, make entries in 
the constants control cards coding-sheet as shown in 
Figure 20. 

To make the proper entries on the coding sheets for 
this example, base the specifications on the following 
assumptions. 

1. Division is to be accomplished for all detail data 
cards (Phase 3). 

2. Dividend is punched in columns 31-36, with X 
punch in column 36 if negative. 

3. Divisor is punched in columns 37-39, with X punch 
in column 39 if negative. 

4. Adjusted quotient (positive or negative) is to be 
edited and printed in print positions 101-111 with 
no sign if positive and cr symbols if negative. 

To develop adjusted quotient as specified, make 
entries in the various columns of the detail control 
cards (Phase 3) coding-sheet as shown in Figure 21. 



Quotient 



7-digit extended dividend plus 3- 
digit divisor plus 1 = 11-position 
work area. 

Line to the left of the number of 
digits in the divisor plus 1 locates 
the extended quotient including sign 
in the units position. 



Dividend 1 



|x|x|x 
435 



x|x 
7.1 



20 

L 



|x|x|x|x 
0034 



+ 

|x|x|x 
,8 5 6 



0|x| 
1 



x|x| 
20 



Adj.Quot. 

+ 
lxlx[x|x|xlx 
O'O 3 4.86 



+ 

x|0|x'x 
1 12 



< — Units position of extended divi- 
dend (label EXD). Supplied by mov- 
ing constant or blank to EXD. 
Units position of actual dividend (la- 
bel ACD). To signal end of division, 
sign in this position resulting from a 
zero and add instruction must he 
removed and transferred to the units 
position of extended dividend before 
executing the divide instruction. 
High-order position of actual divi- 
dend (label DIV). This position is 
addressed when executing the divide 
operation. 



■Units position of extended quotient 
(label EXQ). Upon completion of the 
divide operation, sign in this posi- 
tion must be moved to Constant 5 
(RND). 

■RND with sign must then be added 
to units position of extended quo- 
tient. 



Units position of adjusted quotient 
■(label ADQ). Sign in units position 
of EXQ must be moved to units po- 
sition of ADQ. 
■High-order position of ADQ. 
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CONSTANTS CONTROL CARDS - PHASE 1 
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DETAIL CONTROL CARDS - PHASE 3 
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FARGO General Program Operation and 
1401 Core-Storage Organization 

The following table describes in summary the se- 
quence of events occurring during the loading of the 
combined FARGO program decks and the control 
cards punched from the coding sheets. 

Code in 

Column 77 Program Operation and Core-Storage Organization 

FARGO Phase 1 program is loaded temporarily into 
locations 2618-3313. 

FARGO program is loaded permanently into loca- 
tions 3314-3699 during Phase 1. 

1 Phase- 1 control cards coded M, B, C, and S modify 
the permanent FARGO program, load up to 50 con- 
stants into storage beginning with location 333, and 
set up a table in locations 3700-3999 indicating the 
location of each constant. 

2 FARGO Phase-2 program is loaded temporarily into 
locations 2306-3313, canceling out the temporary 
FARGO Phase- 1 program. 

3 Phase-2 control cards coded T generate total instruc- 
tions and load them into locations immediately fol- 
lowing the constant area. 

4 FARGO Phase-3 program is temporarily loaded into 
locations 2301-3313, canceling out the temporary 
FARGO Phase-2 program. 

5 Phase-3 control cards coded D generate detail in- 
structions and load them into locations immediately 
following the total instructions. The last instruction 
generated in Phase 3 will be BE66. 

6 FARGO Phase-4 program is loaded into locations 
3023-3313, canceling out a portion of the temporary 
FARGO Phase-3 program. 

7 Phase-4 control cards coded H load the report-head- 
ing information into locations immediately following 
the last BE66 instruction generated in Phase 3. 
The constant table in locations 3700-3999 set up 
during Phase 1 is cleared and the Phase 4 control 
cards coded F load the field-headings information 
into this area. 

Location 2358 (or less) up to location 3313 is avail- 
able for storing patch subroutines. 
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FARGO Report Examples 



Register of Earnings and Deductions 

This report will be listed on blank paper. Specifications 
include the following operations: 

1. Report and Field Headings with overflow and page 
numbering. 

2. Minor and Intermediate Controls. 

3. Group-indication of control fields. 

4. Addition and Subtraction (two types of detail data 
cards). 

5. Three minor totals, three intermediate totals and 
three final totals. All amounts listed and total- 
printed will be edited. 

Report format and completed FARGO coding 
sheets are shown in Figures 22- A to 22-E. An exam- 
ple of the finished report is shown in Figure 22-F. 



Remittance Statement and Voucher Check 

Statement and voucher check will be prepared on 
preprinted inverted forms. Statement portion of form 
provides for listing of debit and credit accounts pay- 
able items (4 types of detail data cards punched 1-4 
in column 7), total printing of date, vendor number, 
and an edited statement total with floating $. 

Voucher check provides for date, vendor number, 
check number, and edited check amount with floating 
$ on one line. This is followed by a space and 3-line 
printing of name, address, and city read into storage 
from a card punched — (11-punch) in column 7. A 
fourth line address, when required, is read into stor- 
age from a trailer address card punched & (12-punch) 
in column 7. Name and address cards precede detail 
data cards. 

Specifications include punching of a summary card 
for both valid and void (overflow) checks. The sum- 
mary cards, including those punched for void checks, 
will be used to prepare check registers and for check 
reconciliation. 

Valid checks are printed and summary punched 
with FARGO instructions. Void checks are printed 
and summary punched with instructions from a patch- 
ing subroutine. 

Format of Remittance Statement and Voucher 
Check and completed FARGO coding sheets are 
shown in Figures 23-A to 23-G. Patch subroutine card 
format is shown in Figure 23-H. Examples of state- 
ments and checks are shown in Figure 23- J. 
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LINE DESCRIPTION 



FIELD HEADINGS/WORD MARKS 



INTERNATIONAL BUSINESS MACHINES CORPORATION 

IBM 407, 408, 409, 1403 AND 1404 PRINTER SPACING CHART 

6 Lines Per Inch 
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Earnings Card (NoX-74) 
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Deduction Card (X-74) 
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GLJUE 


1 407. 408. 409. 
„_ 1403,1404 


T / 1 2 3 


4 5 T 6 17 _J I 8 9 i 10 
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I J"i REPORT SPECIFICATIONS 


is 

3t Pay) 5 digit each 

Met Pay) 6 digits each 
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I List-Overflow-Page Numbering 
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6 1 REGISTER OF EARNINGS AND OED 


UCTIONS - PAGE XXX 1 Report Heading — 3-digit page number 
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1.. li 
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9 1 \ EMPLOYEE NO. EARNINGS DEDU 


£TI0NS N|T PAY I Field Headings 
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10 1 >. DEPT. SERUL AFTER TAXES 
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11 j"i 1 * 


ji I l~i Intermediate Control Dept; Minor Control Serial 
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1 ill 
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15 1 EUP. TOTALS XXX. XX X 


KX.XX 5 XXX. XX 1 Level 1 — Employee Totals (Earnings, Deductions and N< 
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_ - - < Double space after Employee Totals 


i 








17 j"l 1 XXX XXXXX XXX. XX 
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19 1 EUP. TOTALS XXX. XX X 


XX. XX X. XXX. XX l 
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a. I'LL . Z _ __ 
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21 1 DEPT. TOTALS X t XXX.XX X L X 


XX. XX X, XXX. XX [ Level 2 — Department Totals (Earnings, Deductions and 
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1 Triple space after Department Totals 
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■ Punch only one channel per line. Holes in the tome di 
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H 


"O 

o 
(J 


Two Cards (one line) Card 1 = Print Positions 1-66; Card 2 = Print Positions 67-132 
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FIELD HEADINGS CONTROL CARDS - PHASE 4 



Four Cards (two lines) Cord 1 = Print Positions 1-66; Card 1 — Print Positions 67-132 
Card 3 = Print Positions 1-66; Cord 4 = Print Position; 67-132 
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MASTER REPORT CONTROL CARD - PHASE 1 



Page No. 
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25 27 
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To 
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Positions 
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34 36 37 



*l*i/ 



Data Card 
Columns 



Print 
Positions 



FIELD 4 



Data Card 
Columns 



Print 
Positions 




Fields 1-4 — Group 
Indication Fields 
(First Card Minor) 
M = Move 
Z =Move and 

Suppress Zeros 



Sequence 
Number 







CONTROL BREAK CONTROL CARDS - 


-PHASE 1 
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Control Field 
Card Cob. 


First Level Control (minor) 
Second Level Control (intermediate) 
Third Level Control (major) 
Fourth Level Control 
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Number 
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Column 1 C = Constant with a word mark; S — Constant without a word mark 

Columns 2-3 = Size of Constant Word 

Columns 4-6 = Label to identify Constant Word 

Columns 7-72 = Field for punching Constant Word (66 characters maximum) 
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E = Edit 

L = Load Edit Control Word 

M = Move Constant Data 

'. — Move and Suppress Zeros 

D —Move Digit 

r = Move Zone 


1 ~ idit DETAIL CARD DATA 
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) = Move Digit 
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A = Add; S = Subtract 

@ = Multiply; % = Divide 

? = Zero Add; ! = Zero Subtract 

D — Move Digit; Y = Move Zone 
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Z = Move and Suppress Zeros 
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Print 
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DETAIL CONTROL CARDS - PHASE 3 





Type of 
Detail 
Card 


Special 4 or 

7 position 

1401 Instruction 

(actual) 


! = load Edit Control Word M = *1L DETAIL CARD DATA 
M — Move Constant Data 

Z = Move and Suppress Zeros Z ~ Mov8 and SuPP™ss Zeros 
D = Move Digit D - Move Digit 
Column Split y = Move Zone Y = Move Zone 


A = Add; S = Subtract 

@ = Multiply; % = Divide 

? = Zero Add; ! = Zero Subtract 

D = Move Digit; Y = Move Zone 

M = Move 

Z = Move and Suppress Zeros 


i. 
p 


After 
Print 


Sequence 
Number 


C = Char. 
Z = Zone 


1 

c 

Z 


D 
Y 


— Move Digit 
= Move Zone 


Label 


Print 
Positions 


Punch 
Positions 


Data Card 
Columns 


Print 
Positions 


Punch 
Positions 


Data Card 
Columns 


Label 


• 

u 


Card 
Cols. 


O 
P 


A 


B 


I 


From 


To > 


r From 


From 


To 


From 


To , 


r From 


To 


From 


To 


From 


To 1 1 From 


To 


From 


To 


S P 
S K 




l 


2 


3 5 


6 


7 


8 10 


11 13 


14 


15 17 


18 20 2 


122 24 


25 27 


28 30 


31 33 


34 36 3 


7 38 40 


41 43 


44 46 


47 49 


50 52 


53 55 56157 59 


60 62 


63 65 


66 68 


69 70 71 


72 


77 


78 80 




























1 1 




1 1 




1 1 


























X 


3 






— 1 — 1 — - 




*». 


D 


i 


o\a\n 


<L 












1 1 i 


-1\B\A 


0| / i^r 


o|/|y 


1 1 


1 1 I 


I o\o\r 


*\t\l 


o\/\s 


o\/\f 




















5 


n? 


2 





D 


4 


1 


L 




















1 'I 




- °l / l J - 


0\t\£ 


6\z\i 


°\-*-\¥ 




















5 


3 


3 





D 




6\0\1 


<L 












1 1 I 


- e l c l t 


<S|3|4 


o\f\$r 


1 1 


1 1 ' 


- 0\S\t 


o\3\j 


0\3\i 


0\<f\5 




















5 


«* 


4 





D 


4 


°\°\1 


c 




















1 1 


1 1 f 


10|«I7 


0\0\n 


a\f\i 


0|?|6 




















5 


A 


5 





D 


i 


°\°\1 


c 








S 


6\&\<- 


0\3\7 i 


-en/ 


*\f\1 


o\s]tr 


1 1 


! 1 I 


-*l*l* 


0\3\1 


o\f\<? 


o\$\fr 1 1 


1 1 A*\*\* 


6\3\f 




T\0\T 




$\P 


/ 


5 


~l 


6 





D 




• 1 1 






















1 1 




i I 




1 1 
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I | 
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I i 
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TOTAL CONTROL CARDS - PHASE 2 


T 


"9 

"5 

> 
« 

o 

i- 


/ 

S 

Be- ( 

fore < 

Print A 


i = Add 

= Subtract 
5> = Multiply I 
%> — Divide I 
A = Move 2 


= Load Edit Control Word 
n — Move Constant Data 
. = Move and Suppress Zeros 


: = Edit 

W = Move 

'. = Move and Suppress Zeros 


Summary Punch 
Column Split 




Clear 
tkccum. 


c 
a. 

P 


c 

3 
0. 

p 


After 
Print 


E 


s 


COMMENTS 


Sequence 
Number 


S P 
S K 


1 


Label 


Label 


Print 
Positions 


Label 


Print 
Positions 


Punch 
Positions 


D 
Y 


— Move Digit 
= Move Zone 


S 


Label 


S P 
S K 




t From 


To , 


f From 


From 


To , 


f From 


From 


To 


From 


To 


1 


From 


To 


To 


1 


2 


3 4 


5 t 


7 9 


10 12 1 


3 14 16 


17 19 


20 22 2 


3 24 26 


27 29 


30 32J33 35 


36 38 


39 


40 42 


43 45 


46 


47 49 


50 


51 


52 53 


54 


55 


56 




77 


78 80 


T 


/ 


S\K 


s 


| | 


I i 


1 1 


1 1 


1 1 / 


*5IC|> 


o\%\o 


0W7J I I 


1 1 




| | 












1 








Skip to "Total Paid" line and move 
date to print area 


3 





1 





T 


/ 


I 




| | 


| | 


1 1 




I i : 


d V\£\N 


0\X\f 


t>\3\3\ I I 






1 1 
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Mpve and zero suppress vendor to 
print area 
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O 
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T 


/ 


J. 




| | 


1 ! t 


_ flClJL 


4\*t\t 


0|f|* i 


f T\o\T 


a me 


d|5]* I I 
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Edit "Total Paid" amount and 
print 


3 





3 
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/ 


s\x 


Ul 


\0lMf 


c\K\hi 


1 1 


1 1 


i 1 / 


1 $\c\])\o\x\o 


^»lil7 




1 ] 




1 1 
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Skip to check; add "1" to check #; 
move date to print area 
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/ 
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i i : 


lV\E\A(\o\JL\1 
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Move and zero suppress vendor to 
print area 
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1 1 
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I t\K\H 


o\3\r 
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Move and zero suppress check # to 
print area 


3 
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?T\o\V 


0\f\* 
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I | 
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Edit check total and print 
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1 1 
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I I 


I | 


6\0\l 
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Move date to punch area 
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6 
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/ 
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1 1 


1 | 


i i 


1 1 
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MAB\N 


I I 


I I 


0\d\1 


^|/|3 
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Move vendor to punch area 
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T 
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1 1 


, | 


i i 
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\ \ * 


\C\K\N 


I I 


I I 


o\i\tf 
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Move check # to punch area 
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0|/I<? 
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0\t\6 


o\i\S 


s 


T\0\T 
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Move check total to punch area; 
remove sign; clear total and punch 
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1 1 
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0\t\6 
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Space; move name to print area 
and print 
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0\3\l 
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Mpve address to print area and 
print 
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1 l 
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Move city to print area and 
print 
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Move trailer address to print area 
and print 
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Clear trailer address and skip to 
channel 1 
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LAST CARD RUNOUT 
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■'rogrammer: 


F. Johnson Date 


12/10/61 




Step 
No. 


Inst. 
Address 


Instruction 


Remarks 


Effective No. 
of Characters 
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P 


A/I 


B 


d 


d] ! 


d! ! 


Inst. 


Data 


Total 


/ 


(2201) 

KOI 


6 


ft:! / jo 


<S 




If on channel 12, branch to K10 


6~ 




sr 


A 


KO<o 


8 


i\s\i 






If not on channel 12, branch back to next instruction 
in Phase 3 


[¥__ 




7 


3 


KtO 


C 


o\ o\ S 


3 i 3 i 7 




Compare Vendor Number in columns 1-5 of all cards with 
Vendor Number stored in Location 333-337 


7 




/6 


f 


K'7 


B 


s\ o\ 


/! ! 




If unequal, branch back to the first instruction in Phase 2 


5 




c*/ 


s 


KJL4- 


F 


c\ | 






If equal, skip to carriage tape channel 6 


JL 




«U 


4 


KJL-'f- 


A 


/<<?</ 


j] *\% 




Add "1" to Check Number 


7 




3o 


7 


K3I 


L 


i[7j/ 


i\o\8 




Load Date into punch positions 1-8 
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37 


$ 


K.3S 


M 


3\1\L 


/!/ \3 




Move Vendor Number stored in Location 376 into punch 
positions 9-13 
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H 


1 


KM 


M 


3\?\8 


l \ ' \ 8 




Move Check Number into punch positions 14-18 


7 




57 


10 


KSZ 


fM 


L \°\ ( * 


/ [-a. '5- 




Move V-O-I-D into punch positions 19-25 


7 




57 


tl 


K*1 
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Punch summary card for voided check 
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IX 


K<*o 


L 


3|7j/ 


ajj |7 




Load Date into print positions 20-27 
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Cts> 


IS 


Kt>7 


Z 


3 \ 7 \ L 


ciJ3 jj 




Move and Zero Suppress Vendor into print positions 
29-33 


7 




I 3 


ti- 


Kl<t 


1 


3\8\8 


a|3J9 




Move and Zero Suppress Check Number into print posi- 
tions 35-39 
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ts 


K8I 


M 


L J j L> 


a|£rJ7 




Move V-O-I-D into print positions 48-57 
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n 
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Print voided check 
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93 


n 
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/ 
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Clear print area 
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it 


K13 


P 


1 | ] 






Skip to carriaqe tape channel 1 


JL 




H 


n 


K9S 


6 


7\ 3 \' 






Branch back to Location 731. This is the address of the 
first instruction in Phase 3 that follows BK01 


^t 




it 


Xo 


K<i<i 


1 








Constant "1" to increase Check Number for voided cheeks 




/ 


i<? 


A/ 


(2306) 

LOG 


V 


*"i°i" 


lj-jD 




Constant V-O-I-D to void overflow checks 
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tO(c 










1 1 


I 1 








18 


2 


/O(o 




NOTE: The following addresses of the various instructions in the patch subroutine were 
determined from the storage printout after testing the main FARGO program: 
Address 
KOI = Starting location (2201) of patch subroutine 

337 = Location of low-order position of Vendor Number for compare purposes 
371 = Statement and Check Date (label SCD) 
376 = Vendor Number (label VEN) 
388 = Check Number (label CKN) 

500 = Location of first instruction in Phase 2 after control break 
731 = Location of instruction in Phase 3 immediately following BK01 
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Figure 23-G. Patch Subroutine Instructions 
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PATCH SUBROUTINE CARD FORMAT 









11 


liiiini 




123k 


56T 


8901 


23)4-56789 


Leader Cards 










#1 


^008 


012 


1001 




#2 


^060 


06t 


1001 




#3 


2p7k 


0T8 


1060 


- 


Instruction Cards 










Step 1 


L019 


KOI 


1060 


BK10@ 


Step 2 


L019 


K06 


1060 


BT31 


Step 3 


L019 


K10 


1060 


C00533T 


Step k 


L019 


KIT 


1060 


B500/ 


Step 5 


L019 


K22 


1060 


F6 


Step 6 


L019 


K2k 


1060 


AK99388 


Step 7 


L019 


K31 


1060 


L3TH08 


Step 8 


L019 


K38 


1060 


M3T6113 


Step 9 


L019 


K^5 


1060 


M388118 


Step 10 


L019 


K52 


1060 


MLO6125 


Step 11 


L019 


K59 


1060 


5 


Step 12 


L019 


k6o 


1060 


L3T122T 


Step 13 


L019 


k6t 


1060 


Z3T6233 


Step 1^ 


L019 


Klk 


1060 


Z388239 


Step 15 


L019 


K8l 


1060 


ML0625T 


Step 16 


L019 


K88 


1060 


2 


Step IT 


L019 


K89 


1060 


/299 


Step 18 


L019 


K93 


1060 


Fl 


Step 19 


L019 


K95 


1060 


BT31 


Constants Cards 










Step 20 


L001 


K99 


1060 


1 


Step 21 


LOOT 


L06 


1060 


V-O-I-D 


Clear & Branch Card 


_ 







_ 



6666666 
0123U56 



A00T080 



AOOTO80 



A00^080 
A00^080 

/ClM-080 



666TTTT 
7890123 



MO80007 



MO80007 



M0800014- 
MO8OOOU, 



T7T7 
^56T 



B001 



B001 



B001 
B001 



TT8 



OOT 



OOT 



Oil 
Oil 



NOTES: Card columns 1-4, S-ll, and 60-80 are prepunched as recommended in the 
IBM 1401 Reference Manual, Form A24-1403, under PROGRAM LOADING 
ROUTINE. 

Underscored positions indicate position of word marks set by leader cards 1, 2 and 3. 

Card columns 5-7 and 12-18 are key punched from the IBM 1401 Program Chart 
(Figure 23 -G). 

After loading the patch subroutine the clear and branch card clears read -in area 1-80 
and branches to location C14 (3314). This is the address of the first instruction in 
the permanent FARGO program. 

Figure 23-H. Patch Subroutine Card Format 
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General Manufacturing Company — Endicott, N. Y. 




We enclose 
check in full 
payment of 


Invoice 


Our Ref. 
Number 


Invoice or 
Claim Amount 


Discount or 
Allowance 


o 


AMOUNT 


! o 
! ° 


Mo. 


Day 
















o ; 


terns listed 




















11 


15 


3U56 


550.75 




1 


550.75 








11 


15 


3U56 




11.02 


7 


11.02- 




O ' 


CODES: 


11 


18 


3fc90 


11.02 




2 


11.02 


: o 






11 


20 


3510 




11.02 


U 


11 .02- 








11 


30 


U127 


39.U60.27 




1 


39,U60.27 




O ' 




12 


06 


U273 


1,000.00 




1 


1,000.00 


- o 






12 


06 


U273 




20.00 


5 


20.00- 








12 


08 


U280 




10.00 


U 


10.00- 




o ! 
o ! 


















' o 


DETACH CHEC 
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NOTES: Entry 040 ~ ORG 1445 specifies the location of N000 (detail No-Op) in the FARGO generated program. 

Entry 050 B DPATCH will be converted during assembly to an actual machine language instruction (in this case BMOO) and loaded over N000 in 1445-1448. 

Entry 060 — ORG 1201 specifies the location of J&888888 (total No-Op) in the FARGO generated program. 

Entry 070 — B TPATCH will be converted during assembly to an actual machine language instruction and loaded over N888 followed by three blanks (entry 080). 

Entry 090 « In this example, the patch area begins in location 2400 converted to MOO during assembly. The last instruction in each subroutine must branch 

back to the proper point (B1449 and B1208) in the FARGO generated program. 
Entry 200 — The END card must branch back to 3314 to the first card read instruction of FARGO. 
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